0 POKE53272,PEEK(53272)OR2:PRINTCHR$(147):PRINT"[147]"
1 POKE53281,0:POKE53280,0:FOR I=1 TO 20:PRINT" [154] ";:NEXT:PRINT""
2 PRINT" [205]ATHE [205]ASTER VON [193].[204]EITNER & [208].[196]IEHM  [186][146]"
3 PRINT
4 PRINT
5 PRINT"     1 > [205]ULTIPLIKATION "
6 PRINT
7 PRINT"     2 > [196]IVISION"
8 PRINT
9 PRINT"     3 > [193]DDITION"
10 PRINT
11 PRINT"     4 > [211]UBTRAKTION"
12 PRINT
13 PRINT"     5 > [209]UADRATWURZEL"
14 PRINT
15 PRINT"     6 > [209]UADRATWURZELSAMPLER":GOTO3000
16 PRINT:PRINT"     8 > [210]ESET":PRINT:PRINT
18 GETA$:IF A$="" THEN 18
19 ON VAL(A$)  GOTO 29,99,199,299,399,499,600,2000
20 GOTO 18
29 PRINTCHR$(147):FOR I=1 TO 20:PRINT"[183][183]";:NEXT:PRINT""
30 PRINTCHR$(5)" [205]ULTIPLIKATION                      [204][186] "
31 PRINT:PRINT
32 PRINT" [197]RSTER [215]ERT :":PRINT:INPUTC
33 PRINT" [218]WEITER [215]ERT:":PRINT:INPUTD
34 PRINT:G=C*D
35 PRINT" [197]RGEBNIS[146]",G:FOR I=1 TO 40:PRINT"[158][183][183]";:NEXT
36 PRINT:GOSUB1000:GOTO 29
99 PRINTCHR$(147):FOR I=1 TO 20:PRINT"[154][183][183]";:NEXT
100 PRINTCHR$(5)" [196]IVISION                            [204][186] "
101 PRINT
102 PRINT
103 PRINT" [197]RSTER [215]ERT :":PRINT:INPUTA
104 PRINT" [218]WEITER [215]ERT:":PRINT:INPUTB
105 PRINT:L=A/B
106 PRINT" [197]RGEBNIS[146] "L:FOR I=1 TO 20:PRINT"[183][183]";:NEXT:GOSUB 1000:GOTO 99
199 PRINTCHR$(147):FOR I=1 TO 20:PRINT"[158][183][183]";:NEXT:PRINT""
200 PRINTCHR$(5)" [193]DDITION                            [204][186] "
202 PRINT:PRINT
203 PRINT" [215]ERT 1   :":PRINT:INPUTA
204 PRINT" [215]ERT 2   :":PRINT:INPUTB
205 PRINT" [215]ERT 3   :":PRINT:INPUTC
206 PRINT" [215]ERT 4   :":PRINT:INPUTD
207 PRINT" [215]ERT 5   :":PRINT:INPUTE
208 PRINT" [215]ERT 6   :":PRINT:INPUTF
209 PRINT" [215]ERT 7   :":PRINT:INPUTG
210 W=A+B+C+D+E+F+G
211 PRINT:PRINT" [197]RBEBNIS:"W:FOR I=1 TO 40 :PRINT"[154][183][158][183]";:NEXT:PRINT""
212 PRINT:GOSUB1000:GOTO199
299 PRINTCHR$(147):FOR I=1 TO 20:PRINT"[158][183][183]";:NEXT:PRINT""
300 PRINTCHR$(5)" [211]UBTRAKTION                         [204][186] "
301 PRINT:PRINT
302 PRINT" [199]RUNDWERT :":PRINT:INPUTA
303 PRINT" [193]BZUG 1   :":PRINT:INPUTB
304 PRINT"  ''   2   :":PRINT:INPUTC
305 PRINT"  ''   3   :":PRINT:INPUTD
306 PRINT"  ''   4   :":PRINT:INPUTE
307 PRINT"  ''   5   :":PRINT:INPUTF
308 PRINT"  ''   6   :":PRINT:INPUTG
309 Z=B+C+D+E+F+G
310 X=A
311 S=X-Z
312 PRINT" [197]RGEBNIS :"S:FOR I=1 TO 40:PRINT"[183][144][183]";:NEXT:PRINT""
313 PRINT:GOSUB1000:GOTO299
399 PRINTCHR$(147):FOR I=1 TO 20:PRINT"[183][154][183]";:NEXT:PRINT""
400 PRINTCHR$(5)" [209]UADRATWURZEL                       [204][186] "
401 PRINT:PRINT
402 PRINT" [215]ERT      :":PRINT:INPUTY
403 REM
404 PRINT" [197]RGEBNISS :"SQR(Y):FOR I=1 TO 40:PRINT"[158][183][183]";:NEXT:PRINT""
405 PRINT:GOSUB1000:GOTO399
499 PRINT"[147]":FOR I=1 TO 20:PRINT"[183][156][183]";:NEXT:PRINT""
500 PRINTCHR$(5)" [209]UADRATWURZEL-[211]AMPLER               [204][186] "
501 PRINT
502 PRINT" [193]NFANG  :":PRINT:INPUTE
503 PRINT" [197]NDE    :":PRINT:INPUTR
504 PRINT" [193]BSTAND :":PRINT:INPUTT
505 FORX=ETORSTEPT
506 PRINT"    "X,SQR(X)
507 NEXT
508 PRINT:GOSUB1000:GOTO500
599 PRINT"[147]":FOR I=1 TO 20:PRINT"[183][156][183]";:NEXT:PRINT""
600 PRINTCHR$(5):PRINT" [200]INWEISE                            [204][186] "
601 PRINT
602 PRINT" [205]ULTIPLIKATION+[196]IVISION+[209]UADRATW.:"
603 FOR I=1 TO 40:PRINT"[183]";:NEXT
604 PRINT" [206]ACH JEDER [197]INGABE <[210][197][212][213][210][206]>[146] DRUECKEN !"
605 PRINT
606 PRINT" [193]DDITION+[211]UBTRAKTION:"
607 PRINT" [163][163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163][163][163]"
608 PRINT" [206]ACH JEDER [197]INGABE <[210][197][212][213][210][206]>[146] DRUECKEN !"
609 PRINT" BEI NICHT BENOETIGTEN [211]UMMANDEN ODER"
610 PRINT" [211]UBTRAHENTEN AUCH <[210][197][212][213][210][206]>[146] DRUECKEN !"
611 FOR I=1 TO 40:PRINT"[183]";:NEXT
612 PRINT" [209]UADRATWURZEL-[211]AMPLER:"
613 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163]"
614 PRINT" [198]UER <[193]NFANG>[146] DEN [193]NFANGSWERT DER ZU"
615 PRINT" BERECHNENDEN [218]AHLENREIHE EINGEBEN !"
616 PRINT" FUER <[197]NDE>[146] DEN [197]NDWERT DER ZU BE-"
617 PRINT" RECHNENDEN [218]AHLENREIHE EINGEBEN !"
618 PRINT" FUER <[193]BSTAND>[146] DEN [194]ERECHNUNGSABSTAND"
619 PRINT" DER [218]AHLENREIHE EINGEBEN[160]!"
620 FOR I=1 TO 40:PRINT"[156]*";:NEXT
630 FOR I=1 TO 10:NEXT
640 PRINTSPC(30)" <[212][193][211][212][197]>"
641 GET A$:IF A$="" THEN 641
642 PRINT"[147]":GOTO 1
1000 PRINT:PRINT"[206]OCH MAL ?  [J/N]";:INPUT P$
1002 IFQ$="N" ORQ$="NEIN" THEN 1005
1004 IFQ$="J" ORQ$="JA" THEN 1006
1005 PRINT"[147]":GOTO1
1006 PRINT:RETURN
2000 PRINT"[147]":FOR I=1 TO 20:PRINT"[154][183][183]";:NEXT
2001 PRINTCHR$(5)"           [194]YE, [194]YE ,[194]YE ! ..."
2002 PRINT" [194]IS ZUM NAECHSTEN [205]AL !"
2003 PRINT" VON [193]NDREAS [204]EITNER";
2004 PRINT"                        UND"
2005 PRINT" [208]ETER [196]IEHM"
2006 FOR I=1 TO 3000:NEXT:SYS 64738
3000 PRINT
3001 PRINT   "     7 > [194]ENUTZUNGSHINWEISE":GOTO16